(* Content-type: application/vnd.wolfram.cdf.text *)

(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)

(* CreatedBy='Mathematica 12.1' *)

(***************************************************************************)
(*                                                                         *)
(*                                                                         *)
(*  Under the Wolfram FreeCDF terms of use, this file and its content are  *)
(*  bound by the Creative Commons BY-SA Attribution-ShareAlike license.    *)
(*                                                                         *)
(*        For additional information concerning CDF licensing, see:        *)
(*                                                                         *)
(*         www.wolfram.com/cdf/adopting-cdf/licensing-options.html         *)
(*                                                                         *)
(*                                                                         *)
(***************************************************************************)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[      1088,         20]
NotebookDataLength[     66872,       1543]
NotebookOptionsPosition[     67450,       1542]
NotebookOutlinePosition[     67844,       1558]
CellTagsIndexPosition[     67801,       1555]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "Derivative", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"yesterday", " ", "=", " ", 
    RowBox[{"DateString", "[", 
     RowBox[{
      RowBox[{"DatePlus", "[", 
       RowBox[{"Today", ",", 
        RowBox[{"-", "1"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year\>\"", ",", "\"\<\>\"", ",", "\"\<Month\>\"", ",", "\"\<\>\"",
         ",", "\"\<Day\>\""}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
   "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Import", " ", "Population", " ", "Files", " ", "and", " ", "Past", " ", 
    "Parameters"}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"popstates", " ", "=", " ", 
   RowBox[{
   "Import", "[", 
    "\"\<E:\\\\Github\\\\covid19orc\\\\danger_map\\\\processed\\\\\
Population2019_AllStates.csv\>\"", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pastparameters", " ", "=", " ", 
    RowBox[{"Import", "[", 
     RowBox[{
     "\"\<E:\\\\Github\\\\covid19orc\\\\danger_map\\\\predicted\\\\Parameters_\
Allstates_\>\"", "<>", "yesterday", " ", "<>", "\"\<.csv\>\""}], "]"}]}], 
   ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Initialize", " ", "Output", " ", "Tables"}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"totaltable", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "\"\<State\>\"", ",", "\"\<Day\>\"", ",", "\"\<Total Detected\>\"", ",", 
      " ", "\"\<Active\>\"", ",", "\"\<Active Hospitalized\>\"", ",", 
      "\"\<Cumulative Hospitalized\>\"", ",", "\"\<Total Detected Deaths\>\"",
       ",", "\"\<Active Ventilated\>\""}], "}"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"parametertable", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "\"\<State\>\"", ",", "\"\<Data Start Date\>\"", ",", 
      "\"\<Infection Rate\>\"", ",", "\"\<Median Day of Action\>\"", ",", 
      "\"\<Rate of Action\>\"", ",", "\"\<Mortality Rate\>\"", ",", 
      "\"\<Internal Parameter 1\>\"", ",", "\"\<Internal Parameter 2\>\""}], 
     "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"stateid", " ", "=", "2"}], ",", " ", 
    RowBox[{"stateid", " ", "\[LessEqual]", " ", 
     RowBox[{"Length", "[", "popstates", "]"}]}], ",", 
    RowBox[{"stateid", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"statename", " ", "=", 
      RowBox[{"popstates", "[", 
       RowBox[{"[", 
        RowBox[{"stateid", ",", "1"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"totalcases", "=", " ", 
      RowBox[{"Import", "[", 
       RowBox[{
       "\"\<E:\\\\Github\\\\covid19orc\\\\danger_map\\\\processed\\\\Cases_\>\
\"", "<>", "statename", "<>", "\"\<.csv\>\""}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"parameterlist", " ", "=", " ", 
      RowBox[{"Select", "[", 
       RowBox[{"pastparameters", ",", 
        RowBox[{
         RowBox[{
          RowBox[{"First", "[", "#", "]"}], "\[Equal]", " ", "statename"}], 
         "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Allow", " ", "up", " ", "to", " ", "5", "%", " ", "Daily", " ", 
       "Drift", " ", "for", " ", "States", " ", "with", " ", "Past", " ", 
       RowBox[{"Predictions", ".", " ", "Use"}], " ", "established", " ", 
       RowBox[{"lower", "/", "upper"}], " ", "bounds", " ", "for", " ", 
       "rest"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "[", "parameterlist", "]"}], ">", "0"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"plistupper", " ", "=", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"First", "[", "parameterlist", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"3", ";;"}], "]"}], "]"}], " ", "+", " ", 
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{
              RowBox[{"First", "[", "parameterlist", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"3", ";;"}], "]"}], "]"}], "]"}], "*", "0.05"}]}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"plistlower", " ", "=", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"First", "[", "parameterlist", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"3", ";;"}], "]"}], "]"}], "-", " ", 
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{
              RowBox[{"First", "[", "parameterlist", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"3", ";;"}], "]"}], "]"}], "]"}], "*", "0.05"}]}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"validcases", " ", "=", 
          RowBox[{
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"totalcases", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"2", ";;"}], ",", "All"}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"And", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], "\[GreaterEqual]", "100"}], 
                ",", 
                RowBox[{
                 RowBox[{"DateObject", "[", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "2", "]"}], "]"}], "]"}], "\[GreaterEqual]", 
                 " ", 
                 RowBox[{"DateObject", "[", 
                  RowBox[{
                   RowBox[{"First", "[", "parameterlist", "]"}], "[", 
                   RowBox[{"[", "2", "]"}], "]"}], "]"}]}]}], "]"}], "&"}]}], 
            "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", 
             RowBox[{"3", ";;", "5"}]}], "]"}], "]"}]}], ";"}], "}"}], 
       "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"plistupper", " ", "=", " ", 
          RowBox[{"{", 
           RowBox[{
           "1.25", ",", "10", ",", "3", ",", "0.1", ",", "10", ",", "10"}], 
           "}"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"plistlower", " ", "=", " ", 
          RowBox[{"{", 
           RowBox[{"0.75", ",", 
            RowBox[{"-", "10"}], ",", "1", ",", "0.01", ",", "0.1", ",", 
            "0.1"}], "}"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"validcases", " ", "=", " ", 
          RowBox[{
           RowBox[{"Select", "[", 
            RowBox[{"totalcases", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "\[GreaterEqual]", "100"}], 
              "&"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", 
             RowBox[{"3", ";;", "5"}]}], "]"}], "]"}]}], ";"}], 
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Only", " ", "Allow", " ", "Predictions", " ", "for", " ", "States", 
       " ", "with", " ", "at", " ", "least", " ", "7", " ", "days", " ", "of",
        " ", "Data", " ", "to", " ", "limit", " ", "DOF"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"If", " ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "[", "validcases", "]"}], ">", "7"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"$MinPrecision", " ", "=", " ", "$MachinePrecision"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"IncubeD", " ", "=", " ", "5"}], ";", "\[IndentingNewLine]", 
        RowBox[{"RecoverID", " ", "=", "10"}], ";", "\[IndentingNewLine]", 
        RowBox[{"DetectD", " ", "=", " ", "2"}], ";", "\[IndentingNewLine]", 
        RowBox[{"PopulationT", " ", "=", 
         RowBox[{"popstates", "[", 
          RowBox[{"[", 
           RowBox[{"stateid", ",", "2"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"PopulationI", " ", "=", " ", 
         RowBox[{"validcases", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"PopulationR", " ", "=", " ", 
         RowBox[{
          RowBox[{"validcases", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}], "*", "10"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"PopulationD", " ", "=", " ", 
         RowBox[{"validcases", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{
           RowBox[{
           "Fixed", " ", "Parameters", " ", "based", " ", "on", " ", "meta"}],
            "-", 
           RowBox[{"analysis", ":", " ", 
            RowBox[{"Hospitalization", " ", "Percentage"}]}]}], ",", 
          RowBox[{"Average", " ", "Days", " ", "till", " ", "Recovery"}], ",",
           " ", 
          RowBox[{
          "Number", " ", "of", " ", "Days", " ", "on", " ", "Ventilation", 
           " ", 
           RowBox[{"(", 
            RowBox[{"for", " ", "Ventilated", " ", "Patients"}], ")"}]}], ",",
           " ", "\[IndentingNewLine]", 
          RowBox[{
          "Maximum", " ", "#", " ", "of", " ", "Days", " ", "Modeled"}], ",", 
          " ", 
          RowBox[{
          "Percentage", " ", "of", " ", "True", " ", "Cases", " ", 
           "Detected"}], ",", " ", 
          RowBox[{
          "Percentage", " ", "of", " ", "Hospitalized", " ", "Patients", " ", 
           "Ventilated"}], ",", " ", 
          RowBox[{
          "Ratio", " ", "of", " ", "Fitting", " ", "between", " ", "cases", 
           " ", "and", " ", "deaths"}]}], " ", "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"hp", " ", "=", " ", "0.15"}], ";", "\[IndentingNewLine]", 
        RowBox[{"RecoverHD", " ", "=", "15"}], ";", "\[IndentingNewLine]", 
        RowBox[{"VentilatedD", " ", "=", " ", "10"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"maxT", " ", "=", " ", "100"}], ";", "\[IndentingNewLine]", 
        RowBox[{"dp", " ", "=", " ", "0.2"}], ";", "\[IndentingNewLine]", 
        RowBox[{"vp", " ", "=", " ", "0.25"}], ";", "\[IndentingNewLine]", 
        RowBox[{"balance", " ", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"validcases", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"-", "1"}], ",", "2"}], "]"}], "]"}], "/", " ", 
           RowBox[{"validcases", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"-", "1"}], ",", "3"}], "]"}], "]"}]}], "/", "5"}]}], 
        ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Fit", " ", "on", " ", "Total", " ", "Cases"}], " ", "*)"}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"validcasesnd", " ", "=", " ", 
         RowBox[{"validcases", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{"1", ";;", "2"}]}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"fitcasesnd", " ", "=", " ", 
         RowBox[{"validcasesnd", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", "All"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"fitcasesnd", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], "/=", "PopulationT"}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"fitcasesnd", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], "-=", 
         RowBox[{
          RowBox[{"fitcasesnd", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "1"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Fit", " ", "on", " ", "Deaths"}], " ", "*)"}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"validcasesd", " ", "=", " ", 
         RowBox[{"validcases", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"fitcasesd", " ", "=", " ", 
         RowBox[{"validcasesd", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", "All"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"fitcasesd", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], "/=", 
         RowBox[{"(", 
          RowBox[{"PopulationT", " ", "/", " ", "balance"}], ")"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"fitcasesd", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], "-=", 
         RowBox[{
          RowBox[{"fitcasesd", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "1"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Differential", " ", "Equation", " ", "Model", " ", 
          RowBox[{"(", 
           RowBox[{
           "SEIR", " ", "+", " ", "Undetected", " ", "+", " ", "Deaths", " ", 
            "+", " ", "Hospitalized"}], ")"}], " ", "corrected", " ", "with", 
          " ", "ArcTan", " ", "response", " ", "curve"}], " ", "*)"}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"seqn", "[", 
          RowBox[{"\[Alpha]_", ",", "days_", ",", "rs_"}], "]"}], ":=", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"s", "'"}], "[", "t", "]"}], "\[Equal]", 
           RowBox[{
            RowBox[{"-", "\[Alpha]"}], "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"2", "/", "Pi"}], " ", "*", " ", 
               RowBox[{"ArcTan", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"(", 
                    RowBox[{"t", "-", "days"}], ")"}]}], "/", "20"}], "*", 
                 "rs"}], "]"}]}], "+", "1"}], ")"}], " ", 
            RowBox[{"s", "[", "t", "]"}], " ", 
            RowBox[{"i", "[", "t", "]"}]}]}], ")"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"eeqn", "[", 
          RowBox[{"\[Alpha]_", ",", "days_", ",", "rs_", ",", "ri_"}], "]"}], 
         ":=", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"e", "'"}], "[", "t", "]"}], "\[Equal]", 
           RowBox[{
            RowBox[{"\[Alpha]", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"2", "/", "Pi"}], " ", "*", " ", 
                RowBox[{"ArcTan", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"(", 
                    RowBox[{"t", "-", "days"}], ")"}]}], "/", "20"}], "*", 
                  "rs"}], "]"}]}], "+", "1"}], ")"}], 
             RowBox[{"s", "[", "t", "]"}], " ", 
             RowBox[{"i", "[", "t", "]"}]}], "-", 
            RowBox[{"ri", " ", 
             RowBox[{"e", "[", "t", "]"}]}]}]}], ")"}]}], ";", "\n", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ieqn", "[", 
          RowBox[{"ri_", ",", "rd_"}], "]"}], ":=", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "'"}], "[", "t", "]"}], "\[Equal]", 
           RowBox[{
            RowBox[{"ri", " ", 
             RowBox[{"e", "[", "t", "]"}]}], "-", 
            RowBox[{"rd", " ", 
             RowBox[{"i", "[", "t", "]"}]}]}]}], ")"}]}], ";", "\n", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"aeqn", "[", 
          RowBox[{"rd_", ",", "dp_", ",", "rri_", ",", "rdth_"}], "]"}], ":=", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"a", "'"}], "[", "t", "]"}], "\[Equal]", 
           RowBox[{
            RowBox[{"rd", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "dp"}], ")"}], " ", 
             RowBox[{"i", "[", "t", "]"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"rri", "+", "rdth"}], ")"}], 
             RowBox[{"a", "[", "t", "]"}]}]}]}], ")"}]}], ";", "\n", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"dqeqn", "[", 
          RowBox[{"rd_", ",", "dp_", ",", "hp_", ",", "rri_", ",", "rdth_"}], 
          "]"}], ":=", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"dq", "'"}], "[", "t", "]"}], "\[Equal]", 
           RowBox[{
            RowBox[{"rd", " ", "dp", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "hp"}], ")"}], " ", 
             RowBox[{"i", "[", "t", "]"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"rri", "+", "rdth"}], ")"}], 
             RowBox[{"dq", "[", "t", "]"}]}]}]}], ")"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"dheqn", "[", 
          RowBox[{"rd_", ",", "dp_", ",", "hp_", ",", "rrh_", ",", "rdth_"}], 
          "]"}], ":=", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"dh", "'"}], "[", "t", "]"}], "\[Equal]", 
           RowBox[{
            RowBox[{"rd", " ", "dp", " ", "hp", " ", 
             RowBox[{"i", "[", "t", "]"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"rrh", "+", "rdth"}], ")"}], 
             RowBox[{"dh", "[", "t", "]"}]}]}]}], ")"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"theqn", "[", 
          RowBox[{"rd_", ",", "dp_", ",", "hp_"}], "]"}], ":=", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"th", "'"}], "[", "t", "]"}], "\[Equal]", " ", 
           RowBox[{"rd", " ", "dp", " ", "hp", " ", 
            RowBox[{"i", "[", "t", "]"}]}]}], " ", ")"}]}], ";", "\n", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"reqn", "[", 
          RowBox[{"rri_", ",", "rrh_"}], "]"}], ":=", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"r", "'"}], "[", "t", "]"}], "\[Equal]", 
           RowBox[{
            RowBox[{"rrh", " ", 
             RowBox[{"dh", "[", "t", "]"}]}], "+", 
            RowBox[{"rri", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"dq", "[", "t", "]"}], "+", 
               RowBox[{"a", "[", "t", "]"}]}], ")"}]}]}]}], ")"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"deqn", "[", "rdth_", "]"}], ":=", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"d", "'"}], "[", "t", "]"}], "\[Equal]", 
           RowBox[{"rdth", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", "[", "t", "]"}], "+", 
              RowBox[{"dh", "[", "t", "]"}], "+", 
              RowBox[{"dq", "[", "t", "]"}]}], ")"}]}]}], ")"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"dveqn", "[", 
          RowBox[{
          "rd_", ",", "dp_", ",", "hp_", ",", "vp_", ",", "rrv_", ",", 
           "rdth_"}], "]"}], ":=", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"dv", "'"}], "[", "t", "]"}], "\[Equal]", " ", 
           RowBox[{
            RowBox[{"rd", " ", "dp", " ", "hp", " ", "vp", " ", 
             RowBox[{"i", "[", "t", "]"}]}], " ", "-", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"rrv", " ", "+", "rdth"}], ")"}], 
             RowBox[{"dv", "[", "t", "]"}]}]}]}], ")"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ddeqn", "[", "rdth_", "]"}], ":=", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"dd", "'"}], "[", "t", "]"}], "\[Equal]", 
           RowBox[{"rdth", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"dh", "[", "t", "]"}], "+", 
              RowBox[{"dq", "[", "t", "]"}]}], ")"}]}]}], ")"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"dteqn", "[", 
          RowBox[{"rd_", ",", "dp_"}], "]"}], ":=", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"dt", "'"}], "[", "t", "]"}], "\[Equal]", 
           RowBox[{"rd", " ", "dp", " ", 
            RowBox[{"i", "[", "t", "]"}]}]}], ")"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "Initialize", " ", "Rates", " ", "using", " ", "Fixed", " ", 
          "Parameters", " ", "above"}], " ", "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"PopulationCI", " ", "=", " ", 
         RowBox[{
         "PopulationI", " ", "-", " ", "PopulationD", " ", "-", " ", 
          "PopulationR"}]}], " ", ";", "\[IndentingNewLine]", 
        RowBox[{"ri", " ", "=", " ", 
         RowBox[{
          RowBox[{"Log", "[", "2", "]"}], "/", 
          RowBox[{"(", "IncubeD", ")"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"rd", " ", "=", " ", 
         RowBox[{
          RowBox[{"Log", "[", "2", "]"}], "/", 
          RowBox[{"(", "DetectD", ")"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"rri", " ", "=", " ", 
         RowBox[{
          RowBox[{"Log", "[", "2", "]"}], "/", 
          RowBox[{"(", "RecoverID", ")"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"rrh", " ", "=", " ", 
         RowBox[{
          RowBox[{"Log", "[", "2", "]"}], "/", 
          RowBox[{"(", "RecoverHD", ")"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"rrv", " ", "=", " ", 
         RowBox[{
          RowBox[{"Log", "[", "2", "]"}], "/", 
          RowBox[{"(", "VentilatedD", ")"}]}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Fit", " ", "on", " ", "Historical", " ", "Data"}], " ", 
         "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"soln0", "=", 
         RowBox[{"ParametricNDSolveValue", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"seqn", "[", 
              RowBox[{"\[Alpha]", ",", "days", ",", "rs"}], "]"}], ",", 
             RowBox[{"eeqn", "[", 
              RowBox[{"\[Alpha]", ",", "days", ",", "rs", ",", "ri"}], "]"}], 
             ",", 
             RowBox[{"ieqn", "[", 
              RowBox[{"ri", ",", "rd"}], "]"}], ",", 
             RowBox[{"aeqn", "[", 
              RowBox[{"rd", ",", "dp", ",", "rri", ",", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"Log", "[", 
                  RowBox[{"1", "-", "DeathP"}], "]"}]}], "/", 
                RowBox[{"(", "RecoverHD", ")"}]}]}], "]"}], ",", 
             RowBox[{"dheqn", "[", 
              RowBox[{"rd", ",", "dp", ",", "hp", ",", "rrh", ",", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"Log", "[", 
                  RowBox[{"1", "-", "DeathP"}], "]"}]}], "/", 
                RowBox[{"(", "RecoverHD", ")"}]}]}], "]"}], ",", 
             RowBox[{"dteqn", "[", 
              RowBox[{"rd", ",", "dp"}], "]"}], ",", 
             RowBox[{"dqeqn", "[", 
              RowBox[{"rd", ",", "dp", ",", "hp", ",", "rri", ",", "rrh"}], 
              "]"}], ",", 
             RowBox[{"ddeqn", "[", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"Log", "[", 
                 RowBox[{"1", "-", "DeathP"}], "]"}]}], "/", 
               RowBox[{"(", "RecoverHD", ")"}]}], "]"}], ",", 
             RowBox[{"reqn", "[", 
              RowBox[{"rri", ",", "rrh"}], "]"}], ",", 
             RowBox[{"deqn", "[", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"Log", "[", 
                 RowBox[{"1", "-", "DeathP"}], "]"}]}], "/", 
               RowBox[{"(", "RecoverHD", ")"}]}], "]"}], ",", 
             RowBox[{
              RowBox[{"s", "[", "0", "]"}], "\[Equal]", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1.0", "-", 
                 RowBox[{"PopulationCI", "/", 
                  RowBox[{"(", 
                   RowBox[{"dp", "*", "PopulationT"}], ")"}]}]}], ")"}], "-", 
               RowBox[{
                RowBox[{"PopulationCI", "/", 
                 RowBox[{"(", 
                  RowBox[{"dp", "*", "PopulationT"}], ")"}]}], "*", 
                RowBox[{"(", 
                 RowBox[{"k1", "+", "k2"}], ")"}]}], "-", 
               RowBox[{"PopulationR", "/", 
                RowBox[{"(", 
                 RowBox[{"PopulationT", "*", "dp"}], ")"}]}], "-", 
               RowBox[{"PopulationD", "/", 
                RowBox[{"(", 
                 RowBox[{"PopulationT", "*", "dp"}], ")"}]}]}]}], ",", 
             RowBox[{
              RowBox[{"e", "[", "0", "]"}], "\[Equal]", 
              RowBox[{
               RowBox[{"PopulationCI", "/", 
                RowBox[{"(", 
                 RowBox[{"dp", "*", "PopulationT"}], ")"}]}], "*", "k1"}]}], 
             ",", 
             RowBox[{
              RowBox[{"i", "[", "0", "]"}], "\[Equal]", 
              RowBox[{
               RowBox[{"PopulationCI", "/", 
                RowBox[{"(", 
                 RowBox[{"dp", "*", "PopulationT"}], ")"}]}], "*", "k2"}]}], 
             ",", 
             RowBox[{
              RowBox[{"a", "[", "0", "]"}], "\[Equal]", 
              RowBox[{
               RowBox[{"PopulationCI", "/", 
                RowBox[{"(", 
                 RowBox[{"dp", "*", "PopulationT"}], ")"}]}], "-", 
               RowBox[{"PopulationCI", "/", 
                RowBox[{"(", "PopulationT", ")"}]}]}]}], ",", 
             RowBox[{
              RowBox[{"dh", "[", "0", "]"}], "\[Equal]", 
              RowBox[{"PopulationCI", "*", 
               RowBox[{"hp", "/", "PopulationT"}]}]}], ",", 
             RowBox[{
              RowBox[{"dq", "[", "0", "]"}], "\[Equal]", 
              RowBox[{"PopulationCI", "*", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "-", "hp"}], ")"}], "/", "PopulationT"}]}]}], 
             ",", 
             RowBox[{
              RowBox[{"r", "[", "0", "]"}], "\[Equal]", 
              RowBox[{"PopulationR", "/", 
               RowBox[{"(", 
                RowBox[{"PopulationT", "*", "dp"}], ")"}]}]}], ",", 
             RowBox[{
              RowBox[{"d", "[", "0", "]"}], "\[Equal]", 
              RowBox[{"PopulationD", "/", 
               RowBox[{"(", 
                RowBox[{"PopulationT", "*", "dp"}], ")"}]}]}], ",", 
             RowBox[{
              RowBox[{"dt", "[", "0", "]"}], "\[Equal]", 
              RowBox[{"PopulationI", "/", "PopulationT"}]}], ",", 
             RowBox[{
              RowBox[{"dd", "[", "0", "]"}], "\[Equal]", 
              RowBox[{"PopulationD", "/", "PopulationT"}]}]}], " ", "}"}], 
           ",", "dt", ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "0", ",", "maxT"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "\[Alpha]", ",", "days", ",", "rs", ",", "DeathP", ",", "k1", ",",
              "k2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"soln1", "=", 
         RowBox[{"ParametricNDSolveValue", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"seqn", "[", 
              RowBox[{"\[Alpha]", ",", "days", ",", "rs"}], "]"}], ",", 
             RowBox[{"eeqn", "[", 
              RowBox[{"\[Alpha]", ",", "days", ",", "rs", ",", "ri"}], "]"}], 
             ",", 
             RowBox[{"ieqn", "[", 
              RowBox[{"ri", ",", "rd"}], "]"}], ",", 
             RowBox[{"aeqn", "[", 
              RowBox[{"rd", ",", "dp", ",", "rri", ",", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"Log", "[", 
                  RowBox[{"1", "-", "DeathP"}], "]"}]}], "/", 
                RowBox[{"(", "RecoverHD", ")"}]}]}], "]"}], ",", 
             RowBox[{"dheqn", "[", 
              RowBox[{"rd", ",", "dp", ",", "hp", ",", "rrh", ",", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"Log", "[", 
                  RowBox[{"1", "-", "DeathP"}], "]"}]}], "/", 
                RowBox[{"(", "RecoverHD", ")"}]}]}], "]"}], ",", 
             RowBox[{"dteqn", "[", 
              RowBox[{"rd", ",", "dp"}], "]"}], ",", 
             RowBox[{"dqeqn", "[", 
              RowBox[{"rd", ",", "dp", ",", "hp", ",", "rri", ",", "rrh"}], 
              "]"}], ",", 
             RowBox[{"ddeqn", "[", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"Log", "[", 
                 RowBox[{"1", "-", "DeathP"}], "]"}]}], "/", 
               RowBox[{"(", "RecoverHD", ")"}]}], "]"}], ",", 
             RowBox[{"reqn", "[", 
              RowBox[{"rri", ",", "rrh"}], "]"}], ",", 
             RowBox[{"deqn", "[", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"Log", "[", 
                 RowBox[{"1", "-", "DeathP"}], "]"}]}], "/", 
               RowBox[{"(", "RecoverHD", ")"}]}], "]"}], ",", 
             RowBox[{
              RowBox[{"s", "[", "0", "]"}], "\[Equal]", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1.0", "-", 
                 RowBox[{"PopulationCI", "/", 
                  RowBox[{"(", 
                   RowBox[{"dp", "*", "PopulationT"}], ")"}]}]}], ")"}], "-", 
               RowBox[{
                RowBox[{"PopulationCI", "/", 
                 RowBox[{"(", 
                  RowBox[{"dp", "*", "PopulationT"}], ")"}]}], "*", 
                RowBox[{"(", 
                 RowBox[{"k1", "+", "k2"}], ")"}]}], "-", 
               RowBox[{"PopulationR", "/", 
                RowBox[{"(", 
                 RowBox[{"PopulationT", "*", "dp"}], ")"}]}], "-", 
               RowBox[{"PopulationD", "/", 
                RowBox[{"(", 
                 RowBox[{"PopulationT", "*", "dp"}], ")"}]}]}]}], ",", 
             RowBox[{
              RowBox[{"e", "[", "0", "]"}], "\[Equal]", 
              RowBox[{
               RowBox[{"PopulationCI", "/", 
                RowBox[{"(", 
                 RowBox[{"dp", "*", "PopulationT"}], ")"}]}], "*", "k1"}]}], 
             ",", 
             RowBox[{
              RowBox[{"i", "[", "0", "]"}], "\[Equal]", 
              RowBox[{
               RowBox[{"PopulationCI", "/", 
                RowBox[{"(", 
                 RowBox[{"dp", "*", "PopulationT"}], ")"}]}], "*", "k2"}]}], 
             ",", 
             RowBox[{
              RowBox[{"a", "[", "0", "]"}], "\[Equal]", 
              RowBox[{
               RowBox[{"PopulationCI", "/", 
                RowBox[{"(", 
                 RowBox[{"dp", "*", "PopulationT"}], ")"}]}], "-", 
               RowBox[{"PopulationCI", "/", 
                RowBox[{"(", "PopulationT", ")"}]}]}]}], ",", 
             RowBox[{
              RowBox[{"dh", "[", "0", "]"}], "\[Equal]", 
              RowBox[{"PopulationCI", "*", 
               RowBox[{"hp", "/", "PopulationT"}]}]}], ",", 
             RowBox[{
              RowBox[{"dq", "[", "0", "]"}], "\[Equal]", 
              RowBox[{"PopulationCI", "*", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "-", "hp"}], ")"}], "/", "PopulationT"}]}]}], 
             ",", 
             RowBox[{
              RowBox[{"r", "[", "0", "]"}], "\[Equal]", 
              RowBox[{"PopulationR", "/", 
               RowBox[{"(", 
                RowBox[{"PopulationT", "*", "dp"}], ")"}]}]}], ",", 
             RowBox[{
              RowBox[{"d", "[", "0", "]"}], "\[Equal]", 
              RowBox[{"PopulationD", "/", 
               RowBox[{"(", 
                RowBox[{"PopulationT", "*", "dp"}], ")"}]}]}], ",", 
             RowBox[{
              RowBox[{"dt", "[", "0", "]"}], "\[Equal]", 
              RowBox[{"PopulationI", "/", "PopulationT"}]}], ",", 
             RowBox[{
              RowBox[{"dd", "[", "0", "]"}], "\[Equal]", 
              RowBox[{"PopulationD", "/", "PopulationT"}]}]}], " ", "}"}], 
           ",", "dd", ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "0", ",", "maxT"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "\[Alpha]", ",", "days", ",", "rs", ",", "DeathP", ",", "k1", ",",
              "k2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"jointsoln", "[", 
           RowBox[{
            RowBox[{"\[Alpha]_", "?", "NumericQ"}], ",", 
            RowBox[{"days_", "?", "NumericQ"}], ",", 
            RowBox[{"rs_", "?", "NumericQ"}], ",", 
            RowBox[{"DeathP_", "?", "NumericQ"}], ",", 
            RowBox[{"k1_", "?", "NumericQ"}], ",", 
            RowBox[{"k2_", "?", "NumericQ"}]}], "]"}], "[", 
          RowBox[{
           RowBox[{"index_", "?", "NumericQ"}], ",", 
           RowBox[{"t_", "?", "NumericQ"}]}], "]"}], ":=", 
         RowBox[{
          RowBox[{
           RowBox[{"KroneckerDelta", "[", 
            RowBox[{"index", "-", "1"}], "]"}], " ", 
           RowBox[{
            RowBox[{"soln0", "[", 
             RowBox[{
             "\[Alpha]", ",", "days", ",", "rs", ",", "DeathP", ",", "k1", 
              ",", "k2"}], "]"}], "[", "t", "]"}]}], "+", 
          RowBox[{
           RowBox[{"KroneckerDelta", "[", 
            RowBox[{"index", "-", "2"}], "]"}], " ", 
           RowBox[{
            RowBox[{"soln1", "[", 
             RowBox[{
             "\[Alpha]", ",", "days", ",", "rs", ",", "DeathP", ",", "k1", 
              ",", "k2"}], "]"}], "[", "t", "]"}], "*", "balance"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"fitcases", "=", 
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", 
               RowBox[{"Sequence", "@@", "#"}]}], "}"}], "&"}], "/@", 
            "fitcasesnd"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{"2", ",", 
               RowBox[{"Sequence", "@@", "#"}]}], "}"}], "&"}], "/@", " ", 
            "fitcasesd"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Weight", " ", "Recent", " ", "Data", " ", "More"}], " ", 
         "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"weights", " ", "=", " ", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Append", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{"x", ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "1", ",", 
                RowBox[{"Length", "[", "fitcasesnd", "]"}]}], "}"}]}], "]"}], 
            ",", 
            RowBox[{"Table", "[", 
             RowBox[{"x", ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "1", ",", 
                RowBox[{"Length", "[", "fitcasesnd", "]"}]}], "}"}]}], 
             "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{"Fit", " ", "Using", " ", "Nelder"}], "-", "Mead"}], " ", 
         "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"nlm", "=", 
         RowBox[{"NonlinearModelFit", "[", 
          RowBox[{"fitcases", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"jointsoln", "[", 
               RowBox[{
               "\[Alpha]", ",", "days", ",", "rs", ",", "DeathP", ",", "k1", 
                ",", "k2"}], "]"}], "[", 
              RowBox[{"index", ",", "t"}], "]"}], ",", "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"plistlower", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", 
                "\[Alpha]", "\[LessEqual]", " ", 
                RowBox[{"plistupper", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
               RowBox[{
                RowBox[{"plistlower", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], "\[LessEqual]", "days", 
                "\[LessEqual]", 
                RowBox[{"plistupper", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"plistlower", "[", 
                 RowBox[{"[", "3", "]"}], "]"}], "\[LessEqual]", "rs", 
                "\[LessEqual]", 
                RowBox[{"plistupper", "[", 
                 RowBox[{"[", "3", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"plistlower", "[", 
                 RowBox[{"[", "4", "]"}], "]"}], "\[LessEqual]", "DeathP", 
                "\[LessEqual]", 
                RowBox[{"plistupper", "[", 
                 RowBox[{"[", "4", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"plistlower", "[", 
                 RowBox[{"[", "5", "]"}], "]"}], "\[LessEqual]", "k1", 
                "\[LessEqual]", 
                RowBox[{"plistupper", "[", 
                 RowBox[{"[", "5", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"plistlower", "[", 
                 RowBox[{"[", "6", "]"}], "]"}], "\[LessEqual]", "k2", 
                "\[LessEqual]", 
                RowBox[{"plistupper", "[", 
                 RowBox[{"[", "6", "]"}], "]"}]}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "\[Alpha]", ",", "days", ",", "rs", ",", "DeathP", ",", "k1", ",",
              "k2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"index", ",", "t"}], "}"}], ",", 
           RowBox[{"Weights", " ", "\[Rule]", " ", "weights"}], ",", 
           RowBox[{"Method", " ", "\[Rule]", " ", 
            RowBox[{"{", 
             RowBox[{"NMinimize", ",", 
              RowBox[{"Method", " ", "\[Rule]", " ", "\"\<NelderMead\>\""}]}],
              "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"fit", " ", "=", " ", 
         RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "Model", " ", "out", " ", "the", " ", "full", " ", "time", " ", 
          "horizon"}], " ", "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"soln2", " ", "=", " ", 
         RowBox[{"NDSolve", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"seqn", "[", 
               RowBox[{"\[Alpha]", ",", "days", ",", "rs"}], "]"}], ",", 
              RowBox[{"eeqn", "[", 
               RowBox[{"\[Alpha]", ",", "days", ",", "rs", ",", "ri"}], "]"}],
               ",", 
              RowBox[{"ieqn", "[", 
               RowBox[{"ri", ",", "rd"}], "]"}], ",", 
              RowBox[{"aeqn", "[", 
               RowBox[{"rd", ",", "dp", ",", "rri", ",", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"Log", "[", 
                   RowBox[{"1", "-", "DeathP"}], "]"}]}], "/", 
                 RowBox[{"(", "RecoverHD", ")"}]}]}], "]"}], ",", 
              RowBox[{"dheqn", "[", 
               RowBox[{"rd", ",", "dp", ",", "hp", ",", "rrh", ",", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"Log", "[", 
                   RowBox[{"1", "-", "DeathP"}], "]"}]}], "/", 
                 RowBox[{"(", "RecoverHD", ")"}]}]}], "]"}], ",", 
              RowBox[{"theqn", "[", 
               RowBox[{"rd", ",", "dp", ",", "hp"}], "]"}], ",", 
              RowBox[{"dteqn", "[", 
               RowBox[{"rd", ",", "dp"}], "]"}], ",", 
              RowBox[{"dqeqn", "[", 
               RowBox[{"rd", ",", "dp", ",", "hp", ",", "rri", ",", "rrh"}], 
               "]"}], ",", 
              RowBox[{"reqn", "[", 
               RowBox[{"rri", ",", "rrh"}], "]"}], ",", 
              RowBox[{"deqn", "[", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"Log", "[", 
                  RowBox[{"1", "-", "DeathP"}], "]"}]}], "/", 
                RowBox[{"(", "RecoverHD", ")"}]}], "]"}], ",", 
              RowBox[{"ddeqn", "[", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"Log", "[", 
                  RowBox[{"1", "-", "DeathP"}], "]"}]}], "/", 
                RowBox[{"(", "RecoverHD", ")"}]}], "]"}], ",", 
              RowBox[{"dveqn", "[", 
               RowBox[{"rd", ",", "dp", ",", "hp", ",", "vp", ",", "rrv", ",", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"Log", "[", 
                   RowBox[{"1", "-", "DeathP"}], "]"}]}], "/", 
                 RowBox[{"(", "RecoverHD", ")"}]}]}], "]"}], ",", 
              RowBox[{
               RowBox[{"s", "[", "0", "]"}], "\[Equal]", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1.0", "-", 
                  RowBox[{"PopulationCI", "/", 
                   RowBox[{"(", 
                    RowBox[{"dp", "*", "PopulationT"}], ")"}]}]}], ")"}], "-", 
                RowBox[{
                 RowBox[{"PopulationCI", "/", 
                  RowBox[{"(", 
                   RowBox[{"dp", "*", "PopulationT"}], ")"}]}], "*", 
                 RowBox[{"(", 
                  RowBox[{"k1", "+", "k2"}], ")"}]}], "-", 
                RowBox[{"PopulationR", "/", 
                 RowBox[{"(", 
                  RowBox[{"PopulationT", "*", "dp"}], ")"}]}], "-", 
                RowBox[{"PopulationD", "/", 
                 RowBox[{"(", 
                  RowBox[{"PopulationT", "*", "dp"}], ")"}]}]}]}], ",", 
              RowBox[{
               RowBox[{"e", "[", "0", "]"}], "\[Equal]", 
               RowBox[{
                RowBox[{"PopulationCI", "/", 
                 RowBox[{"(", 
                  RowBox[{"dp", "*", "PopulationT"}], ")"}]}], "*", "k1"}]}], 
              ",", 
              RowBox[{
               RowBox[{"i", "[", "0", "]"}], "\[Equal]", 
               RowBox[{
                RowBox[{"PopulationCI", "/", 
                 RowBox[{"(", 
                  RowBox[{"dp", "*", "PopulationT"}], ")"}]}], "*", "k2"}]}], 
              ",", 
              RowBox[{
               RowBox[{"a", "[", "0", "]"}], "\[Equal]", 
               RowBox[{
                RowBox[{"PopulationCI", "/", 
                 RowBox[{"(", 
                  RowBox[{"dp", "*", "PopulationT"}], ")"}]}], "-", 
                RowBox[{"PopulationCI", "/", 
                 RowBox[{"(", "PopulationT", ")"}]}]}]}], ",", 
              RowBox[{
               RowBox[{"th", "[", "0", "]"}], "\[Equal]", 
               RowBox[{"PopulationCI", "*", 
                RowBox[{"hp", "/", "PopulationT"}]}]}], ",", 
              RowBox[{
               RowBox[{"dh", "[", "0", "]"}], "\[Equal]", 
               RowBox[{"PopulationCI", "*", 
                RowBox[{"hp", "/", "PopulationT"}]}]}], ",", 
              RowBox[{
               RowBox[{"dq", "[", "0", "]"}], "\[Equal]", 
               RowBox[{"PopulationCI", "*", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "-", "hp"}], ")"}], "/", "PopulationT"}]}]}], 
              ",", 
              RowBox[{
               RowBox[{"r", "[", "0", "]"}], "\[Equal]", 
               RowBox[{"PopulationR", "/", 
                RowBox[{"(", 
                 RowBox[{"PopulationT", "*", "dp"}], ")"}]}]}], ",", 
              RowBox[{
               RowBox[{"d", "[", "0", "]"}], "\[Equal]", 
               RowBox[{"PopulationD", "/", 
                RowBox[{"(", 
                 RowBox[{"PopulationT", "*", "dp"}], ")"}]}]}], ",", 
              RowBox[{
               RowBox[{"dd", "[", "0", "]"}], "\[Equal]", 
               RowBox[{"PopulationD", "/", "PopulationT"}]}], " ", ",", 
              RowBox[{
               RowBox[{"dv", "[", "0", "]"}], "\[Equal]", 
               RowBox[{"PopulationCI", "*", "hp", "*", 
                RowBox[{"vp", "/", "PopulationT"}]}]}], ",", 
              RowBox[{
               RowBox[{"dt", "[", "0", "]"}], "\[Equal]", 
               RowBox[{"PopulationI", "/", "PopulationT"}]}]}], "}"}], "/.", 
            "fit"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "s", ",", "e", ",", "i", ",", "a", ",", "dq", ",", "dh", ",", 
             "th", ",", "r", ",", "d", ",", "dt", ",", "dd", ",", "dv"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "0", ",", "maxT"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Generate", " ", "Output"}], " ", "*)"}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"dtct", "[", "t_", "]"}], ":=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"dt", "[", "t", "]"}], ")"}], "/.", "soln2"}], ")"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"actv", "[", "t_", "]"}], ":=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"dh", "[", "t", "]"}], "+", 
              RowBox[{"dq", "[", "t", "]"}]}], ")"}], "/.", "soln2"}], ")"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"hosp", "[", "t_", "]"}], ":=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"dh", "[", "t", "]"}], "/.", "soln2"}], ")"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"thosp", "[", "t_", "]"}], ":=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"th", "[", "t", "]"}], "/.", "soln2"}], ")"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"deaths", "[", "t_", "]"}], ":=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"dd", "[", "t", "]"}], "/.", "soln2"}], ")"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"vent", "[", "t_", "]"}], ":=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"dv", "[", "t", "]"}], "/.", "soln2"}], ")"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"TDate", " ", "=", " ", 
         RowBox[{"DateObject", "[", 
          RowBox[{"totalcases", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "2"}], "]"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"ConstantArray", "[", 
         RowBox[{"statename", ",", "3"}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"totaltable", " ", "=", " ", 
         RowBox[{"Join", "[", 
          RowBox[{"totaltable", ",", 
           RowBox[{"MapThread", "[", 
            RowBox[{"Prepend", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Table", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"DateString", "[", 
                    RowBox[{
                    RowBox[{"DatePlus", "[", 
                    RowBox[{"TDate", ",", 
                    RowBox[{"t", "-", " ", 
                    RowBox[{"totalcases", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "3"}], "]"}], "]"}]}]}], "]"}], 
                    ",", "\"\<ISODate\>\""}], "]"}], ",", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"dtct", "[", 
                    RowBox[{"t", "-", 
                    RowBox[{"validcasesnd", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "*", 
                    "PopulationT"}], "]"}], ",", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"actv", "[", 
                    RowBox[{"t", "-", 
                    RowBox[{"validcasesnd", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "*", 
                    "PopulationT"}], "]"}], ",", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"hosp", "[", 
                    RowBox[{"t", "-", 
                    RowBox[{"validcasesnd", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "*", 
                    "PopulationT"}], "]"}], ",", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"thosp", "[", 
                    RowBox[{"t", "-", 
                    RowBox[{"validcasesnd", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "*", 
                    "PopulationT"}], "]"}], ",", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"deaths", "[", 
                    RowBox[{"t", "-", 
                    RowBox[{"validcasesnd", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "*", 
                    "PopulationT"}], " ", "]"}], ",", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"vent", "[", 
                    RowBox[{"t", "-", 
                    RowBox[{"validcasesnd", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "*", 
                    "PopulationT"}], " ", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"t", ",", " ", 
                   RowBox[{
                    RowBox[{"totalcases", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "3"}], "]"}], "]"}], "+", "1"}], 
                   ",", 
                   RowBox[{"maxT", "-", "1"}]}], "}"}]}], "]"}], ",", 
               RowBox[{"ConstantArray", "[", 
                RowBox[{"statename", ",", 
                 RowBox[{"maxT", "-", 
                  RowBox[{"totalcases", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "3"}], "]"}], "]"}], "-", 
                  "1"}]}], "]"}]}], "}"}]}], "]"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"parametertable", " ", "=", " ", 
         RowBox[{"Join", "[", 
          RowBox[{"parametertable", ",", 
           RowBox[{"{", 
            RowBox[{"Prepend", "[", 
             RowBox[{
              RowBox[{"Prepend", "[", 
               RowBox[{
                RowBox[{"Values", "[", "fit", "]"}], ",", 
                RowBox[{"DateString", "[", 
                 RowBox[{
                  RowBox[{"DatePlus", "[", 
                   RowBox[{"TDate", ",", 
                    RowBox[{
                    RowBox[{"validcases", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", " ", 
                    RowBox[{"totalcases", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "3"}], "]"}], "]"}]}]}], "]"}], 
                  ",", "\"\<ISODate\>\""}], "]"}]}], "]"}], ",", 
              "statename"}], "]"}], "}"}]}], "]"}]}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Export", " ", "Results"}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"usgather", " ", "=", " ", 
   RowBox[{"GatherBy", "[", 
    RowBox[{
     RowBox[{"totaltable", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;"}], ",", "All"}], "]"}], " ", "]"}], ",", 
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "&"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ustable", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"Round", "[", 
        RowBox[{"N", "[", 
         RowBox[{"Total", "[", 
          RowBox[{"x", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", 
             RowBox[{"-", "6"}]}], "]"}], "]"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Round", "[", 
        RowBox[{"N", "[", 
         RowBox[{"Total", "[", 
          RowBox[{"x", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", 
             RowBox[{"-", "5"}]}], "]"}], "]"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Round", "[", 
        RowBox[{"N", "[", 
         RowBox[{"Total", "[", 
          RowBox[{"x", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", 
             RowBox[{"-", "4"}]}], "]"}], "]"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Round", "[", 
        RowBox[{"N", "[", 
         RowBox[{"Total", "[", 
          RowBox[{"x", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", 
             RowBox[{"-", "3"}]}], "]"}], "]"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Round", "[", 
        RowBox[{"N", "[", 
         RowBox[{"Total", "[", 
          RowBox[{"x", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", 
             RowBox[{"-", "2"}]}], "]"}], "]"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Round", "[", 
        RowBox[{"N", "[", 
         RowBox[{"Total", "[", 
          RowBox[{"x", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", 
             RowBox[{"-", "1"}]}], "]"}], "]"}], "]"}], "]"}], "]"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "usgather"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"totaltable", " ", "=", " ", 
   RowBox[{"Join", "[", 
    RowBox[{"totaltable", ",", 
     RowBox[{"MapThread", "[", 
      RowBox[{"Prepend", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ustable", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"1", ";;", "70"}], ",", "All"}], "]"}], "]"}], ",", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{"\"\<US\>\"", ",", "70"}], "]"}]}], "}"}]}], "]"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "\"\<E:\\\\Github\\\\covid19orc\\\\danger_map\\\\predicted\\\\Allstates_\>\
\"", "<>", 
     RowBox[{"DateString", "[", 
      RowBox[{"Today", ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Year\>\"", ",", "\"\<\>\"", ",", "\"\<Month\>\"", ",", 
         "\"\<\>\"", ",", "\"\<Day\>\""}], "}"}]}], "]"}], "<>", 
     "\"\<.csv\>\""}], ",", "totaltable"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "\"\<E:\\\\Github\\\\covid19orc\\\\danger_map\\\\predicted\\\\Parameters_\
Allstates_\>\"", "<>", 
     RowBox[{"DateString", "[", 
      RowBox[{"Today", ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Year\>\"", ",", "\"\<\>\"", ",", "\"\<Month\>\"", ",", 
         "\"\<\>\"", ",", "\"\<Day\>\""}], "}"}]}], "]"}], "<>", 
     "\"\<.csv\>\""}], ",", "parametertable"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "\"\<E:\\\\Github\\\\MIT-ORC-COVID19-Webapp\\\\data\\\\predicted\\\\\
Allstates_\>\"", "<>", 
     RowBox[{"DateString", "[", 
      RowBox[{"Today", ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Year\>\"", ",", "\"\<\>\"", ",", "\"\<Month\>\"", ",", 
         "\"\<\>\"", ",", "\"\<Day\>\""}], "}"}]}], "]"}], "<>", 
     "\"\<.csv\>\""}], ",", "totaltable"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
   "\"\<E:\\\\Github\\\\MIT-ORC-COVID19-Webapp\\\\data\\\\predicted\\\\\
Allstates.csv\>\"", ",", "totaltable"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{
  3.7946591428572206`*^9, {3.7946611066231403`*^9, 3.7946612324071045`*^9}, {
   3.794661411266244*^9, 3.7946614361055174`*^9}, {3.794661469339507*^9, 
   3.7946614930993853`*^9}, {3.7946615371703234`*^9, 3.794661569310991*^9}, {
   3.794661695610758*^9, 3.7946617821693635`*^9}, {3.7946635519661617`*^9, 
   3.794663574923511*^9}, {3.794663608970803*^9, 3.794663609346414*^9}, {
   3.7946639936915417`*^9, 3.794663997990198*^9}, {3.7946640427235146`*^9, 
   3.79466412248466*^9}, {3.794664180387495*^9, 3.794664186253515*^9}, {
   3.794664390376712*^9, 3.79466447926869*^9}, {3.7946645145786047`*^9, 
   3.794664555395893*^9}, {3.794664681986769*^9, 3.7946647012927475`*^9}, {
   3.7946647644163647`*^9, 3.794664781330191*^9}, {3.794664824349763*^9, 
   3.7946648758423*^9}, {3.7946649219825597`*^9, 3.794664978961475*^9}, {
   3.7946650117230387`*^9, 3.7946650536818123`*^9}, {3.7946651829875116`*^9, 
   3.7946652193969917`*^9}, {3.7946652684737587`*^9, 3.7946654232135763`*^9}, 
   3.7946654686401577`*^9, {3.7946655048905993`*^9, 3.7946655276675463`*^9}, {
   3.794665573229377*^9, 3.794665714915227*^9}, {3.7946679432349086`*^9, 
   3.7946679687289543`*^9}, {3.794668011060981*^9, 3.7946680131558385`*^9}, {
   3.794668071996913*^9, 3.7946680756435494`*^9}, {3.79466810618554*^9, 
   3.794668110893784*^9}, {3.7946682298905478`*^9, 3.7946682316377573`*^9}, 
   3.7946687445587144`*^9, {3.7946689543120637`*^9, 3.7946689550183473`*^9}, {
   3.7946689959704943`*^9, 3.7946690560919275`*^9}, {3.794681777957632*^9, 
   3.794681800612199*^9}, {3.794682362260629*^9, 3.79468242579067*^9}, 
   3.794682980255475*^9, {3.7946832737383165`*^9, 3.7946832856374674`*^9}, {
   3.7946841460442886`*^9, 3.794684227404304*^9}, {3.7946854579743023`*^9, 
   3.794685485004266*^9}, {3.794686137308466*^9, 3.794686161919631*^9}, {
   3.7946862944607177`*^9, 3.7946863231148853`*^9}, {3.7946863970842314`*^9, 
   3.794686423957215*^9}, {3.794686732319804*^9, 3.79468673572392*^9}, {
   3.7946867998353453`*^9, 3.7946869330858674`*^9}, {3.794686963847799*^9, 
   3.794686982670955*^9}, {3.794687307367461*^9, 3.7946873567522316`*^9}, {
   3.7946984102677526`*^9, 3.7946984245285816`*^9}, {3.794698550181098*^9, 
   3.7946985503535824`*^9}, {3.7946991062686524`*^9, 3.794699106540353*^9}, {
   3.7947479046251593`*^9, 3.7947479133835635`*^9}, {3.794757425157849*^9, 
   3.794757432740959*^9}, {3.794758250445093*^9, 3.7947582661350393`*^9}, {
   3.7947583190647717`*^9, 3.7947583212325535`*^9}, {3.794758830654703*^9, 
   3.7947588670662723`*^9}, {3.794758920084366*^9, 3.7947589212222157`*^9}, {
   3.794759106172414*^9, 3.79475910738118*^9}, {3.7947591800956492`*^9, 
   3.7947592307787495`*^9}, {3.794759317557334*^9, 3.794759333908117*^9}, {
   3.7947597328644304`*^9, 3.7947597381900387`*^9}, {3.794759769812071*^9, 
   3.794759790309248*^9}, {3.7947599594034643`*^9, 3.7947599667992554`*^9}, {
   3.794760035258463*^9, 3.794760037375811*^9}, {3.7947607189084644`*^9, 
   3.794760719440916*^9}, {3.7947608663559113`*^9, 3.7947609199180856`*^9}, {
   3.7947610306420727`*^9, 3.794761081336122*^9}, {3.7947613738282003`*^9, 
   3.7947613740899563`*^9}, {3.79476159939332*^9, 3.794761601995886*^9}, {
   3.794762062798314*^9, 3.794762076747342*^9}, {3.7947621158673496`*^9, 
   3.794762116104124*^9}, {3.7947701299790154`*^9, 3.794770208438674*^9}, 
   3.7947702481448355`*^9, {3.794770321817848*^9, 3.7947703385880175`*^9}, {
   3.7947706653648005`*^9, 3.7947706769968414`*^9}, {3.794770824289915*^9, 
   3.7947708788408875`*^9}, 3.794770946581006*^9, {3.7947710296492414`*^9, 
   3.794771035933643*^9}, {3.794771339084655*^9, 3.7947714310347767`*^9}, {
   3.794771650140114*^9, 3.794771665446421*^9}, {3.79477529285159*^9, 
   3.7947753379940295`*^9}, {3.7947753932015457`*^9, 
   3.7947755103260093`*^9}, {3.7947755809808273`*^9, 
   3.7947755810920973`*^9}, {3.7947757537819014`*^9, 
   3.7947757539257545`*^9}, {3.794776249675367*^9, 3.794776253349093*^9}, {
   3.7947762837254343`*^9, 3.7947763256261215`*^9}, {3.7947767079167843`*^9, 
   3.7947767176980934`*^9}, {3.794776929767461*^9, 3.794776931590641*^9}, {
   3.7947782478762407`*^9, 3.7947782546173463`*^9}, 3.7948551478830366`*^9, {
   3.7948552304633083`*^9, 3.7948552448927755`*^9}, {3.7948557812997217`*^9, 
   3.7948557837632484`*^9}, {3.794856419987303*^9, 3.7948564834574347`*^9}, {
   3.7948565296456566`*^9, 3.7948565800432425`*^9}, {3.7948566106559086`*^9, 
   3.7948567988303685`*^9}, {3.7948568964221716`*^9, 
   3.7948569043931804`*^9}, {3.7948570790699997`*^9, 
   3.7948570808052273`*^9}, {3.794857133529448*^9, 3.79485713369328*^9}, {
   3.7948583898086147`*^9, 3.794858417835775*^9}, 3.7948584708338685`*^9, {
   3.794860715077997*^9, 3.794860722742528*^9}, {3.794860777838916*^9, 
   3.7948608004857445`*^9}, {3.794934798473241*^9, 3.7949348048538227`*^9}, {
   3.7949349013149457`*^9, 3.794934901892353*^9}, {3.7949418473199444`*^9, 
   3.7949418509962087`*^9}, {3.7949423543693743`*^9, 
   3.7949423701453123`*^9}, {3.7949424549649515`*^9, 
   3.7949424577193823`*^9}, {3.794942873663*^9, 3.794942873851808*^9}, {
   3.7949448247910233`*^9, 3.794944855838154*^9}, {3.7949450092789917`*^9, 
   3.794945012712427*^9}, {3.794947898802348*^9, 3.7949479722989216`*^9}, {
   3.794948013512437*^9, 3.794948013730218*^9}, {3.794948187298711*^9, 
   3.794948187928049*^9}, {3.794950663793498*^9, 3.794950664042244*^9}, {
   3.79495117279565*^9, 3.794951273072857*^9}, {3.794952274325555*^9, 
   3.7949523491988745`*^9}, {3.7949524014794273`*^9, 
   3.7949524064828863`*^9}, {3.79495258487537*^9, 3.7949525850182447`*^9}, {
   3.794953405103073*^9, 3.794953405352818*^9}, {3.794953598733163*^9, 
   3.794953598858056*^9}, {3.7949537776126404`*^9, 3.7949537777694817`*^9}, {
   3.7949543170380626`*^9, 3.794954317355768*^9}, 3.7949543690739894`*^9, {
   3.7949545968039827`*^9, 3.794954602228059*^9}, {3.7949549219939413`*^9, 
   3.7949549221397934`*^9}, {3.794955088909829*^9, 3.7949550890147257`*^9}, {
   3.7949556643807015`*^9, 3.7949557565700283`*^9}, {3.7949559012901897`*^9, 
   3.7949560367515693`*^9}, {3.794956125178379*^9, 3.794956127172903*^9}, {
   3.7949562721610003`*^9, 3.794956276383298*^9}, {3.7949563934594364`*^9, 
   3.794956434767397*^9}, {3.794956473334944*^9, 3.7949564838104205`*^9}, {
   3.794956513826236*^9, 3.7949565365052557`*^9}, {3.79500993301928*^9, 
   3.79500993672948*^9}, {3.795010022552228*^9, 3.7950100501993384`*^9}, {
   3.7950105153636355`*^9, 3.7950107307771497`*^9}, 3.795010771572708*^9, {
   3.7950108566455665`*^9, 3.7950108569133086`*^9}, {3.795010910584478*^9, 
   3.7950109356342096`*^9}, {3.7950115581425314`*^9, 3.79501158328376*^9}, {
   3.795011640311457*^9, 3.795011640582198*^9}, {3.795011717903902*^9, 
   3.795011720690053*^9}, {3.7950117912868776`*^9, 3.795011900435668*^9}, {
   3.7950119621605387`*^9, 3.7950119662853193`*^9}, {3.795012100689925*^9, 
   3.795012268106106*^9}, {3.7950123117509136`*^9, 3.795012318715355*^9}, {
   3.7950123826960974`*^9, 3.795012422954548*^9}, {3.7950126366082726`*^9, 
   3.7950126367451267`*^9}, {3.7950126771028748`*^9, 3.795012770007412*^9}, {
   3.795012828964634*^9, 3.795012835336116*^9}, {3.795012903238394*^9, 
   3.7950129086988335`*^9}, {3.795012975041889*^9, 3.7950129843234124`*^9}, {
   3.795013064114379*^9, 3.7950130982256145`*^9}, {3.795013247040533*^9, 
   3.7950132507117786`*^9}, {3.7950133394917297`*^9, 3.795013361241994*^9}, {
   3.7950136640719247`*^9, 3.7950136786778755`*^9}, {3.795013730064052*^9, 
   3.795013730263849*^9}, {3.795124019422866*^9, 3.7951240225596585`*^9}, {
   3.7951889400334125`*^9, 3.79518904916479*^9}, {3.795189083565674*^9, 
   3.7951891225078535`*^9}, {3.7951892438067646`*^9, 
   3.7951892439533415`*^9}, {3.7951896591794434`*^9, 
   3.7951896632605777`*^9}, {3.795189741894717*^9, 3.795189743314667*^9}, {
   3.7951898605860205`*^9, 3.7951899541890116`*^9}, {3.795189988833622*^9, 
   3.795190014158353*^9}, {3.7951900630334854`*^9, 3.7951900829345236`*^9}, {
   3.7951901139660892`*^9, 3.795190142170314*^9}, {3.7951904312364874`*^9, 
   3.795190442330618*^9}, {3.7951904797109165`*^9, 3.7951905487580204`*^9}, {
   3.7951906088716564`*^9, 3.7951906099301915`*^9}, {3.795190915711622*^9, 
   3.795190919103341*^9}, {3.7951916779337077`*^9, 3.7951916915688443`*^9}, {
   3.7951919881828537`*^9, 3.7951919933861513`*^9}, {3.795192069057005*^9, 
   3.795192105305154*^9}, {3.7951921433308964`*^9, 3.7951921879930077`*^9}, {
   3.7951923199741344`*^9, 3.7951924090514793`*^9}, {3.7951944002996316`*^9, 
   3.7951944258355417`*^9}, {3.7951944864131155`*^9, 
   3.7951950154376965`*^9}, {3.795990512315776*^9, 
   3.7959905296646547`*^9}},ExpressionUUID->"336566c2-9ebe-46bc-ac16-\
b7914e4452b8"]
},
WindowSize->{Full, Full},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (March 18, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"62ef6ca3-ee42-4831-b87d-feaf6ccff626"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[1488, 33, 65958, 1507, 6289, "Input",ExpressionUUID->"336566c2-9ebe-46bc-ac16-b7914e4452b8"]
}
]
*)

